Adding string to Memo.Lines.text in script breaks the line

starhu

Hello,

My problem is this:
I have a memo with text let's say 'Joe'.

In the Onbefore print I check if the family name is Smith so I need to concatenate so as to be Joe Smith.

However the following in the script breaks the line:


Memo.Lines.Text := Memo.Lines.Text+' Smith ';

this too: Memo.Text := Memo.Text+' Smith ';

So instead of 'Joe Smith' the result is:

'Joe
Smith'

gordk

again do your concatenating in the obp of the band and assign to memoviews memo.

lines property is a zero based array
memo text property is all the text of the memo.

Anu de Deus

Any memo text value will have a CRLF in the end.
You could do this:

lTxt := memo1.text; // Internally, it will have 'Joe'#13#10
delete(lTxt,length(ltxt)-1,2);
Memo1.text := lTxt +' Smith';

starhu

Anu de Deus wrote: »

Any memo text value will have a CRLF in the end.
You could do this:

lTxt := memo1.text; // Internally, it will have 'Joe'#13#10
delete(lTxt,length(ltxt)-1,2);
Memo1.text := lTxt +' Smith';

Thank you very much I will try it!

technisoft

Anu de Deus wrote: »

Any memo text value will have a CRLF in the end.
You could do this:

lTxt := memo1.text; // Internally, it will have 'Joe'#13#10
delete(lTxt,length(ltxt)-1,2);
Memo1.text := lTxt +' Smith';

Trim() should do the same work.

lTxt := Trim( memo1.text ); // Internally, it will have 'Joe'#13#10
Memo1.text := lTxt +' Smith';

Anu de Deus

Doesn't Trim only remove blank spaces, leaving the CRLF there?

technisoft

Anu de Deus wrote: »

Doesn't Trim only remove blank spaces, leaving the CRLF there?

Trim should remove all white space characters (codes below ASCII #32) from the begin and end of a string, leaving embedded white space in place. I think.